gusucode.com > 智睿政府网站管理系统 V2.1.0 > 智睿政府网站管理系统 V2.1.0\code\Zhirui\editor\filemanager\connectors\asp\util.asp

    <%
    if trim(request.cookies("ZhiRui")("ZhiRuiAdmin"))<>"" then
    session("ZhiRuiAdmin")=request.cookies("ZhiRui")("ZhiRuiAdmin")
    session("ZhiRuiUser")=request.cookies("ZhiRui")("ZhiRuiUser")
    session("AdminPurview")=request.cookies("ZhiRui")("AdminPurview")
    End if
	If trim(session("ZhiRuiAdmin"))="" then
	Response.Write("<script language=javascript>alert('您的缓存时间已到或为空，请返回重新登录！');this.top.location.href='Admin_Login.asp';</script>")
	Response.end
	End if
	If Request.Cookies("ZhiRui")("Check")<>"ZhiRuiSystem" then
	Response.Write("<script language=javascript>alert('您的核心认证码错误，请返回重新登录！');this.top.location.href='Admin_Login.asp';</script>")
	Response.end
	End if
%>
<%
Function RemoveFromStart( sourceString, charToRemove )
	Dim oRegex
	Set oRegex = New RegExp
	oRegex.Pattern = "^" & charToRemove & "+"

	RemoveFromStart = oRegex.Replace( sourceString, "" )
End Function

Function RemoveFromEnd( sourceString, charToRemove )
	Dim oRegex
	Set oRegex = New RegExp
	oRegex.Pattern = charToRemove & "+$"

	RemoveFromEnd = oRegex.Replace( sourceString, "" )
End Function

Function ConvertToXmlAttribute( value )
	ConvertToXmlAttribute = Replace( value, "&", "&amp;" )
End Function

Function InArray( value, sourceArray )
	Dim i
	For i = 0 to UBound( sourceArray )
		If sourceArray(i) = value Then
			InArray = True
			Exit Function
		End If
	Next
	InArray = False
End Function

%>